home *** CD-ROM | disk | FTP | other *** search
/ Lexis Nexis Millenium Plus Collection 1997 to 1997 / Lexis-Nexis Millenium Plus Collection - 1996-97 (Lexis-Nexis)(LA1173-0 07-96)(1996).bin / pc / internet / scripts / scripts.z / DIALPLUS.SCR < prev    next >
Text File  |  1996-01-25  |  1KB  |  54 lines
  1. !
  2. !  Copyright (c) 1995
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  DIALPLUS:
  9. !    Connect to Dialplus
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.8"
  15. !-V
  16.  
  17. show "Connecting to GNS Dialplus";
  18. Tries = 5;
  19. FailStr = "GNS Dialplus not responding";
  20. on cancel goto Return_Cancel;
  21.  
  22. send %CR;
  23.  
  24. Wait_Dialplus:
  25.     if Tries = 0 goto Dialplus_Failure;
  26.     Tries = Tries - 1;
  27.  
  28.     wait
  29.         %mdm_Failure    goto NO_Carrier,
  30.         "press RETURN:"    goto Send_Dialplus_Password,
  31.         "User ID:"    goto Return_Success,
  32.         "Host Name:"    goto Return_Success
  33.     until 180;
  34.  
  35.     send %CR;
  36.     goto Wait_Dialplus;
  37.  
  38. Send_Dialplus_Password:
  39.     send "UKCNS" & %CR;
  40.     goto Wait_Dialplus;
  41.  
  42. NO_Carrier:
  43.     FailStr = "Modem connection lost";
  44. Dialplus_Failure:
  45.     define %FailureMsg = FailStr;
  46.     exit %Failure;
  47.  
  48. Return_Cancel:
  49.     exit %Cancel;
  50.  
  51. Return_Success:
  52.     send %CR;
  53.     exit %Success;
  54.